unit uSystem;

interface

uses
  System.SysUtils, Forms, uServerConst;

  // Main application
  function AppGetDir: string;         // Get application directory
  function AppGetFilename: string;    // Get application full filename


implementation

function AppGetDir: string;
var
  _s: string;
begin
  _s:=trim(ExtractFileDir(Application.ExeName));
  if _s = '' then Result:=STRING_SERVER_ERRORSTRING else Result:=_s + '\';
end;

function AppGetFilename: string;
var
  _s: string;
begin
  _s:=trim(Application.ExeName);
  if _s = '' then Result:=STRING_SERVER_ERRORSTRING else Result:=_s;
end;

end.
